VERSION 5.00
Begin VB.Form stiff 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Form1"
   ClientHeight    =   5985
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   6645
   FillColor       =   &H00E0E0E0&
   BeginProperty Font 
      Name            =   "Verdana"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00E0E0E0&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5985
   ScaleWidth      =   6645
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.OptionButton opt_no 
      BackColor       =   &H00FFFFFF&
      Caption         =   "NO"
      Height          =   255
      Left            =   5160
      TabIndex        =   4
      Top             =   1800
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.OptionButton opt_si 
      BackColor       =   &H00FFFFFF&
      Caption         =   "SI"
      Height          =   255
      Left            =   3960
      TabIndex        =   3
      Top             =   1800
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.CommandButton cmd_add 
      Caption         =   "Adicionar"
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Top             =   120
      Width           =   1455
   End
   Begin VB.TextBox txt 
      Height          =   615
      Index           =   0
      Left            =   3840
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   480
      Width           =   2775
   End
   Begin VB.Label lbl1 
      BackColor       =   &H00FFFFFF&
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   600
      Width           =   3855
   End
End
Attribute VB_Name = "stiff"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim i As Long, j As Long
Dim aux As String
Dim numfil As Long
Dim linea As String

'On Error GoTo ErrSub

'lbl1.Clear 'elimina el contenido de la lista
numfil = FreeFile 'numero de archivo libre
'abrir el archivo para leer
Open "D:\PROYECTO_CASA\software\casa\v1.3\titulo_nuevoParam.txt" For Input As numfil
i = 0
Do While Not EOF(numfil)
        
        'Lee la linea
        Line Input #numfil, linea
        If i = 0 Then
        lbl1(i).Caption = linea
        txt(i).Visible = True
        Else
        If linea <> "ENSAYO MICROBIOLOGICO" Then
        Load txt(i)
        Load lbl1(i)
        If linea <> "TIPO ENSAYO" Then
        txt(i).Top = txt(i - 1).Top + txt(i - 1).Height '300 '270
        txt(i).Visible = True
        lbl1(i).Top = lbl1(i - 1).Top + txt(i - 1).Height '300 '270
        lbl1(i).Caption = linea
        lbl1(i).Visible = True
        Else
         txt(i).Top = txt(i - 1).Top + txt(i - 1).Height + 300
        opt_si.Visible = True: opt_si.Top = txt(i - 1).Top + 700
        opt_no.Visible = True: opt_no.Left = 5160: opt_no.Top = txt(i - 1).Top + 700
        lbl1(i).Top = lbl1(i - 1).Top + 300 'txt(i - 1).Height - 300 '300 '270
        lbl1(i).Caption = linea
        lbl1(i).Visible = True
        '        txt(i).Top = txt(i - 1).Top + 300
        End If 'tipo ensayo
       
        
     
        End If
        
        End If
        If linea <> "ENSAYO MICROBIOLOGICO" Then i = i + 1
Loop
    
''For i = 0 To 4
''If i = 0 Then
''txt(i).Visible = True
'lbl1(i).Caption = UCase("parametro")
'txt(i).BackColor = vbWhite
''Else
 ''Load txt(i)
 'txt(i).BackColor = vbWhite
 ''txt(i).Top = txt(i - 1).Top + txt(i - 1).Height '300 '270
 ''txt(i).Visible = True
''End If
''Next i
End Sub

